home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / fglqbx10.zip / 09-09.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  624b  |  39 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Arrow AS STRING*14
  6.  
  7. DATA &h02,&h00, &h03,&h00, &hFF,&h80, &hFF,&hC0
  8. DATA &hFF,&h80, &h03,&h00, &h02,&h00
  9.  
  10. IF FGtestmode(13,1) = 0 THEN
  11.    PRINT "This program requires a 320 x 200 EGA graphics mode."
  12.    STOP
  13. END IF
  14.  
  15. FOR I = 1 TO 14
  16.    READ Item
  17.    MID$(Arrow,I) = CHR$(Item)
  18. NEXT
  19.  
  20. OldMode = FGgetmode
  21. FGsetmode 13
  22. FGsetclip 0, 15, 0, 199
  23. FGsetcolor 15
  24.  
  25. FGmove 10, 10
  26. FGdrwimage Arrow, 2, 7
  27. FGmove 10, 20
  28. FGclpimage Arrow, 2, 7
  29. FGmove 4, 30
  30. FGrevimage Arrow, 2, 7
  31. FGmove 4, 40
  32. FGflpimage Arrow, 2, 7
  33. FGwaitkey
  34.  
  35. FGsetmode OldMode
  36. FGreset
  37.  
  38. END
  39.